home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs55.d81 / bincmp.c < prev    next >
Text File  |  2009-10-10  |  4KB  |  162 lines
  1. /*
  2.   ╨ROGRAM: BINCMP - COMPARE BINARY FILES
  3.   ╓ERSION: 1.0  01/31/86
  4.   ┴UTHOR:  ═ARK ╥. ╥INFRET
  5.  
  6.   ╙YNOPSIS:
  7.  
  8.     $ BINCMP FILE1 FILE2     (╙┼╤ ╞ILES)
  9.     $ BINCMP FILE1,P FILE2,P (╨╥╟ FILES)
  10.  
  11.     ╞ILENAMES MAY ALSO CONTAIN DEVICE NUMBER SPECIFICATION (E.G. #9:FILE1).
  12.  
  13.   ─ESC.:
  14.  
  15.     ┬INCMP COMPARES TWO FILES (╙┼╤,╨╥╟) AS BINARY DATA, REPORTING
  16.     DIFFERENCES TO STANDARD OUTPUT.
  17.  
  18.     ╫RITTEN FOR ├OMMODORE ├64 W/├-╨OWER
  19.  
  20.  
  21.   ╬╧╘┼: ╘HIS PROGRAM USES A MODIFIED FREAD ROUTINE (╥AY ┌ARLING) WHICH
  22.         RETURNS THE NUMBER OF ELEMENTS READ RATHER THAN THE SIMPLE 1 OR
  23.         0 WHICH THE NON-STANDARD ├-╨OWER FREAD RETURNS.  ╘HE BUFFERING
  24.         ACCOMPLISHED BY USING FREAD PROVIDES A SIGNIFICANT IMPROVEMENT
  25.         IN PERFORMANCE (VS. FGETC).
  26.      
  27. */
  28.  
  29. #INCLUDE <STDIO.H>
  30.  
  31. CHAR *MALLOC();
  32.  
  33. #DEFINE ┬╒╞╙╔┌ 254*4   /* SIZE OF FOUR FULL SECTORS */
  34. #DEFINE ═┴╪┼╥╥ 200     /* MAXIMUM MISMATCHES ALLOWED */
  35.  
  36. CHAR *BUF1,*BUF2;
  37.  
  38. UNSIGNED BIAS,ERRCNT,I,LAST,LAST1,LAST2;
  39. ╞╔╠┼ *FIL1;
  40. ╞╔╠┼ *FIL2;
  41.  
  42. /* ╬OTE: FUNCTIONAL DESIGN COULD HAVE BEEN CLEANER, BUT THE PROGRAM IS
  43.          SMALL - SO WHY BOTHER? 
  44. */
  45. MAIN(ARGC,ARGV)
  46. CHAR **ARGV;
  47. █
  48.   STATIC CHAR *NOTOPEN = "├AN'T OPEN %S\N";
  49.   STATIC CHAR *LONGER = "%S IS LONGER!\N\N";
  50.  
  51.   IF (ARGC != 3) HELP();
  52.  
  53.   BUF1 = MALLOC(┬╒╞╙╔┌); /* ─YNAMIC ALLOCATION SAVES ON PROGRAM FILE SIZE */
  54.   BUF2 = MALLOC(┬╒╞╙╔┌);
  55.  
  56.   IF ((FIL1=OPENFILE(ARGV[1],"R"))==╬╒╠╠ ▀▀ FERROR())
  57.     █
  58.       PRINTF(NOTOPEN,ARGV[1]);
  59.       EXIT();
  60.     ▌
  61.  
  62.   IF ((FIL2=OPENFILE(ARGV[2],"R"))==╬╒╠╠ ▀▀ FERROR())
  63.     █
  64.       PRINTF(NOTOPEN,ARGV[2]);
  65.       EXIT();
  66.     ▌
  67.  
  68.   PRINTF("    %-16S %-16S\N\N",ARGV[1],ARGV[2]);
  69.   
  70.   BIAS = 0;
  71.  
  72.   FOR (ERRCNT = 0 ; ERRCNT < 20 ;)
  73.   █
  74.     LAST1 = FREAD(BUF1,1,┬╒╞╙╔┌,FIL1); /* READ FROM FILE 1 */
  75.     LAST2 = FREAD(BUF2,1,┬╒╞╙╔┌,FIL2); /* READ FROM FILE 2 */
  76.  
  77.     LAST = LAST1;
  78.     IF (LAST1 != LAST2) █
  79.       IF (LAST1 > LAST2) █
  80.         LAST = LAST2;
  81.         PRINTF(LONGER,ARGV[1]);
  82.       ▌
  83.       ELSE 
  84.         PRINTF(LONGER,ARGV[2]); 
  85.     ▌
  86.  
  87.     FOR (I=0; I<LAST; I++) █
  88.       IF (BUF1[I] != BUF2[I]) █
  89.         ERRCNT++;
  90.         PRINTF("%04X     %02X               %02X\N",BIAS+I,BUF1[I],BUF2[I]);
  91.         IF (ERRCNT > ═┴╪┼╥╥) █
  92.           PUTS("\N╘OO MANY ERRORS!\N");
  93.           BREAK;
  94.         ▌
  95.       ▌
  96.     ▌
  97.     IF (LAST<┬╒╞╙╔┌) BREAK;
  98.     BIAS += ┬╒╞╙╔┌;
  99.   ▌
  100.   IF (LAST1==LAST2 && ERRCNT==0)
  101.     PUTS("\N╞ILES MATCH.");
  102.   ELSE █
  103.     IF (ERRCNT)
  104.       PRINTF("\N╘HERE WERE AT LEAST %D MISMATCHES.\N",ERRCNT);
  105.     ELSE
  106.       PUTS("\N╘HERE WERE NO MISMATCHES TO THIS POINT.");
  107.   ▌
  108. ▌
  109.  
  110.  
  111. /* ╧PEN A FILE, ALLOWING DEVICE SPECIFICATION. */
  112.  
  113. OPENFILE(NAME,HOW)
  114. CHAR *NAME,*HOW;
  115.  
  116. █
  117.   CHAR *XNAME;
  118.   CHAR C;
  119.   UNSIGNED DVC;
  120.  
  121.   XNAME = NAME; /* COPY POINTER */
  122.   DVC = 8;      /* DEFAULT IS DEVICE 8 */
  123.   IF ((C=*XNAME) == '#') █
  124.     XNAME++;
  125.     IF (((C=*XNAME) == '8') ▀▀ ((C=*XNAME) == '9')) █
  126.       XNAME++;
  127.       DVC = (8 + (C - '8'));
  128.       IF (*XNAME==':') XNAME++;
  129.       ELSE █
  130.         PRINTF("MISSING ':' IN DEVICE SPECIFICATION\N%S\N",XNAME);
  131.         RETURN ╬╒╠╠;
  132.         ▌
  133.       ▌
  134.     ELSE █
  135.       PRINTF("ILLEGAL DEVICE NUMBER:\N%S\N",XNAME);
  136.       RETURN ╬╒╠╠;
  137.       ▌
  138.     ▌
  139.  
  140.   DEVICE(DVC);
  141.   RETURN (FOPEN(XNAME,HOW));
  142. ▌
  143.  
  144. /* ┼XPLAIN PROGRAM TO USER */
  145. HELP()
  146. █
  147.   PUTS("╘HIS PROGRAM COMPARES 2 FILES AS BINARY");
  148.   PUTS("DATA.  ╔T CAN BE USED TO COMPARE EITHER");
  149.   PUTS("╙┼╤ OR ╨╥╟ FILES (OR ONE OF EACH).");
  150.   PUTS("╥EMEMBER TO SUFFIX ╨╥╟ FILENAMES WITH");
  151.   PUTS("',P'.  ┴LSO, THE DEVICE NUMBER FOR EACH");
  152.   PUTS("FILE MAY BE SPECIFIED.");
  153.   PUTS("╒SAGE: $ BINCMP FILE1 FILE2");
  154.   PUTS("       $ BINCMP #8:FILE1,P #9:FILE2,P");
  155.   PUTS("\N╘HIS PROGRAM IS CURRENTLY HARDWIRED TO");
  156.   PRINTF("ABORT AFTER %D ERRORS.\N",═┴╪┼╥╥);
  157.   PUTS("╥EMEMBER, WHEN COMPARING ╨╥╟ FILES THAT");
  158.   PUTS("THE ADDRESS REPORTED SHOULD BE ADJUSTED");
  159.   PUTS("BY LOAD ADDRESS MINUS 2 (LA-2).");
  160.   EXIT();
  161. ▌